BBS in a Box 15/BBS in a box XV-2.iso/Files II/Prog/M/MacPerl 4.13 source.sit/Perl Source ƒ/Perl/macscripts/sendps

Text File | 1993-10-23 | 297 b | 21 lines | [TEXT/MPS ]

Perl -Sx "{0}" {"Parameters"}
Exit
#!/usr/local/bin/perl

$| = 1;

open(PRINTER, "+>Dev:Printer") || die "couldn't open connection to laserwriter";

select((select(PRINTER), $|=1, $/="\012")[0]);

while (<>) {
    print PRINTER;
}

shutdown(PRINTER,1);

while (<PRINTER>) {
    s/\012/\015/g;
    print;
}